# @ARGV  = ("./test.txt");
# while($line = <>){
#     print($line=~/d[eE]+f/);
# }
$line = "1f";
print ($line=~/^\d+f/);